home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / misc / gms_dev.lha / GMSDev / Source / C / Misc / Strings.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-08-15  |  1.5 KB  |  62 lines
  1. /* Dice: 1> dcc -l0 -mD dpk.o tags.o Strings.c -o Strings
  2. **
  3. ** Demonstrates the Strings module.  You need to be running IceBreaker
  4. ** to see the output.
  5. */
  6.  
  7. #include <proto/dpkernel.h>
  8. #include <pragmas/strings_pragmas.h>
  9.  
  10. BYTE *ProgName      = "Strings";
  11. BYTE *ProgAuthor    = "Paul Manias";
  12. BYTE *ProgDate      = "July 1998";
  13. BYTE *ProgCopyright = "DreamWorld Productions (c) 1996-1998.  Freely distributable.";
  14. BYTE *ProgShort     = "Strings Demonstration.";
  15.  
  16. struct Module *StringsMod = NULL;
  17. APTR STRBase;
  18.  
  19. BYTE Hello[]  = { "Hello World!" };
  20. BYTE Games[]  = { "Games " };
  21. BYTE Master[] = { "Master" };
  22. BYTE *String;
  23.  
  24. LONG main(void) {
  25.   if (StringsMod = OpenModule(MOD_STRINGS,"strings.mod")) {
  26.      STRBase = StringsMod->ModBase;
  27.  
  28.      DPrintF("!Demo:","String manipulations now follow...");
  29.  
  30.      if (String = StrClone(Hello,MEM_DATA|MEM_PRIVATE)) {
  31.         DPrintF("!StrClone:","%s",String);
  32.         FreeMemBlock(String);
  33.      }
  34.  
  35.      if (String = IntToStr(4096,NULL)) {
  36.         DPrintF("!IntToStr:","%s",String);
  37.         DPrintF("!StrToInt:","%ld",StrToInt(String));
  38.         FreeMemBlock(String);
  39.      }
  40.  
  41.      DPrintF("!StrLength:","%d : %s", StrLength(Hello), Hello);
  42.  
  43.      if (String = StrMerge(Games,Master,NULL)) {
  44.         DPrintF("!StrMerge:","%s",String);
  45.         FreeMemBlock(String);
  46.      }
  47.  
  48.      StrLower(Hello);
  49.      DPrintF("!StrLower:","%s",Hello);
  50.  
  51.      StrUpper(Hello);
  52.      DPrintF("!StrUpper:","%s",Hello);
  53.  
  54.      StrCapitalize(Hello);
  55.      DPrintF("!StrCapitalize:","%s",Hello);
  56.   }
  57.  
  58.   Free(StringsMod);
  59.   return(ERR_OK);
  60. }
  61.  
  62.